home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / edit / aurora2.zip / WPMENU.AML < prev    next >
Text File  |  1995-01-26  |  18KB  |  458 lines
  1.  
  2. // ───────────────────────────────────────────────────────────────────
  3. // The Aurora Editor v2.0
  4. // Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
  5. //
  6. // WordPerfect Menu definitions (included by MAIN.AML)
  7. //
  8. // If you have made any changes, save this file and select 'Recompile
  9. // the Editor' from the Set menu. Exit and re-enter the editor for
  10. // your changes to take effect.
  11. // ───────────────────────────────────────────────────────────────────
  12.  
  13. // ───────────────────────────────────────────────────────────────────
  14. //  Edit Window menu bar and tool bar
  15. // ───────────────────────────────────────────────────────────────────
  16.  
  17.   function  EditMen
  18.  
  19.     // menu bar
  20.     menubar "" 1
  21.       item "&File"     "editFile"
  22.       item "&Window"   "editWindow"
  23.       item "&Block"    "editBlock"
  24.       item "&Search"   "editSearch"
  25.       item "F&old"     "editFold"
  26.       item "&Edit"     "editEdit"
  27.       item "&Clip"     "editClip"
  28.       item "&Print"    "editPrint"
  29.       item "Se&t"      "editSet"
  30.       item "M&acro"    "editMacro"
  31.       item "&Help"     "editHelp"
  32.     end
  33.  
  34.     // tool bar
  35.     menubar "" 2
  36.       item "<&&≡>"     toolbar                 // close tool bar
  37.       item "<&&?>"     quickref 'u' 'f'        // users guide
  38.       item "<&&*>"     open "*.*"              // display file manager
  39.       item "<&&/>"     copywin                 // copy window
  40.       item "<&&─>"     splitwin 'h'            // split window horz
  41.       item "<&&|>"     splitwin 'v'            // split window vert
  42.       item "<&&o>"     askopen                 // open prompt
  43.       item "<&&s>"     save                    // save file
  44.       item "<&&F>"     askfind                 // find prompt
  45.       item "<&&f>"     findlast                // do last find/replace
  46.       item "<&&r>"     formatblock2 "kr"       // reformat block
  47.       item "<&&«>"     undo                    // undo last change
  48.       item "<&&»>"     redo                    // redo last change
  49.       item "<&&>>"     foldblock2              // fold block
  50.       item "<&&<>"     destroyfold2            // destroyfold
  51.     end
  52.   end
  53.  
  54.  
  55. // ───────────────────────────────────────────────────────────────────
  56. //  Edit Window pulldown menus
  57. // ───────────────────────────────────────────────────────────────────
  58.  
  59.   forward inout
  60.   menu  "editFile"
  61.     item " &New                  <ctrl n>"  opennew
  62.     item " &Open..            <shift f10>"  askopen
  63.     item " Open &Binary.."                  askopenb
  64.     item " Open Las&t             <alt z>"  openlast
  65.     item " &Rename..              <alt n>"  askname
  66.     item " &Save                    <f10>"  save
  67.     item " &Text In/Out         <ctrl f5>"  inout
  68.     item "-"
  69.     item " &File Manager..           <f4>"  open "*.*"
  70.     item " Ne&xt"                           nextfile
  71.     item " &Prev"                           prevfile
  72.     item " &List..                <alt ->"  filelist
  73.     item "─"
  74.     item " &Close                 <alt q>"  close
  75.     item " Close &All                <f7>"  closeall
  76.     item " Sav&e and Close       <ctrl x>"  close 's'
  77.     item " Save an&d Close All"             closeall 's'
  78.     item "─"
  79.     item " Abo&ut.."                        about
  80.   end
  81.  
  82.  
  83.   menu  "editWindow"
  84.     item " &Restore"                       restore
  85.     item " &Move/Size"                     sizekey
  86.     item " P&an"                           pankey
  87.     item " M&inimize"                      minimize
  88.     item " Ma&ximize           <ctrl z>"   maximize
  89.     item " &Next             <shift f3>"   nextwindow
  90.     item " &Prev"                          prevwindow
  91.     item " &List..                 <f5>"   winlist
  92.     item "─"
  93.     item " &Copy               <ctrl c>"   copywin
  94.     item " Split Hor&z          <alt h>"   splitwin 'h'
  95.     item " Split Ver&t          <alt v>"   splitwin 'v'
  96.     item "─"
  97.     item " Ca&scade"                       cascade
  98.     item " Tile &Horz"                     tile 'h'
  99.     item " Tile &Vert"                     tile 'v'
  100.     item "─"
  101.     item " Tool &Bar"                      toolbar
  102.     item " St&yle Toggle"                  togglestyle
  103.     item " Pr&ompt Style.."                askprompt
  104.   end
  105.  
  106.   forward  markblock
  107.   menu  "editMark"
  108.     item " Mark &Block       <alt f4>"   markblock
  109.     item " Mark &Line         <alt l>"   markline
  110.     item " Mark &Column       <alt b>"   markcolumn
  111.     item " Mark &Word         <alt 1>"   markword
  112.     item " Mark to &EOL       <alt 2>"   markeol
  113.     item " Mark &Paragraph    <alt 3>"   markpara "tb"
  114.     item "─"
  115.     item " &Unmark            <alt u>"   destroymark
  116.   end
  117.  
  118.   menu  "editBlock"
  119.     item " Mar&k..                    "    submenu "editMark"
  120.     item " &Copy                <alt c>"    copyblock2
  121.     item " Copy &Over           <alt o>"    copyblockover
  122.     item " &Move                <alt m>"    moveblock2
  123.     item " Mo&ve Over          <ctrl m>"    moveblockover
  124.     item " &Delete              <alt d>"    deleteblock2
  125.     item " &Indent"                         shiftblock  1
  126.     item " Uninden&t"                       shiftblock -1
  127.     item "─"
  128.     item " &Fill            <ctrl k><f>"    fillblock2
  129.     item " &Reformat            <alt r>"    formatblock2 "kr"
  130.     item " R&eformat Right      <alt y>"    formatblock2 "rj"
  131.     item " S&ave..          <ctrl k><s>"    saveblock2
  132.     item " &Sort            <ctrl k><o>"    sortblock2
  133.     item " Lo&wercase"                      caseblock 'l'
  134.     item " U&ppercase       <ctrl k><u>"    caseblock
  135.     item "─"
  136.     item " &Left Justify"                   justblock2 'l'
  137.     item " Ri&ght Justify"                  justblock2 'r'
  138.     item " Ce&nter          <ctrl k><c>"    justblock2 'c'
  139.   end
  140.  
  141.   menu  "editSearch"
  142.     item " &Find..       <shift f2> or <f2>"   askfind
  143.     item " Re&place..              <alt f2>"   askrepl
  144.     item " &Repeat Last Find/Repl  <ctrl l>"   findlast
  145.     item " &Scan Files..           <ctrl s>"   askscan
  146.     item " &Incremental Search     <ctrl i>"   isearch
  147.     item " Find &Occurrences..     <ctrl h>"   askfindo
  148.     item "─"
  149.     item " &Quick Bookmark         <ctrl 2>"   quickbook
  150.     item " Pre&v Bookmark          <ctrl 6>"   cyclebook
  151.     item " Place &Bookmark.."                  placebook
  152.     item " &Go to Bookmark.."                  askbook
  153.     item "─"
  154.     item " Go to &Line..           <ctrl j>"   askrow
  155.     item " Go to Bloc&k Start      <ctrl b>"   gotomark 't'
  156.     item " Go to Block En&d"                   gotomark 'b'
  157.     item " Go to Ne&xt Fold         <alt 7>"   search2 "f/f"
  158.     item "─"
  159.     item " Find &Matching Char"                gotomatch2
  160.     item " Go to Compiler &Error"              gotoerror
  161.   end
  162.  
  163.   menu  "editFold"
  164.     item " &Fold Next Line          <alt 8>"    foldline
  165.     item " &Unfold Next Line        <alt 9>"    foldline 'u'
  166.     item "─"
  167.     item " C&reate Fold"                        createfold
  168.     item " &Destroy Fold            <alt g>"    destroyfold2
  169.     item " &Open Fold               <alt \\>"   openfold
  170.     item " &Close Fold              <alt \\>"   closefold
  171.     item "─"
  172.     item " Fold Bloc&k              <alt f>"    foldblock2
  173.     item " Fold Block Fl&at"                    foldflat
  174.     item " Des&troy Block Folds"                foldblock 'ds'
  175.     item " O&pen Block Folds"                   foldblock 'os'
  176.     item " C&lose Block Folds"                  foldblock 'cs'
  177.     item "─"
  178.     item " Destro&y All Folds       <alt 0>"    foldall 'ds'
  179.     item " Ope&n All Folds          <alt [>"    foldall 'os'
  180.     item " Clo&se All Folds         <alt ]>"    foldall 'cs'
  181.     item "─"
  182.     item " &Export without Folds.."             asksaveas 'x'
  183.     item " E&xport Block without Folds.."       saveblock2 'x'
  184.   end
  185.  
  186.  
  187.   forward flushr
  188.   menu  "editEdit"
  189.     item " &Undo                      <f1>"   undo
  190.     item " &Redo                  <ctrl y>"   redo
  191.     item "─"
  192.     item " &Insert Line       <ctrl enter>"   insline2
  193.     item " &Delete Line"                      delline
  194.     item " &Split Line             <alt s>"   splitline2
  195.     item " &Join Line              <alt j>"   joinline
  196.     item "─"
  197.     item " &Erase to End"                     delchar (getlinelen)
  198.     item " Delete Right &Word     <ctrl t>"   delword
  199.     item " Du&plicate Line         <alt 4>"   insline (gettext)
  200.     item " Sw&ap Lines             <alt 5>"   swapline
  201.     item " Ce&nter Line         <shift f6>"   centerline
  202.     item "─"
  203.     item " Enter &Literal..       <ctrl [>"   literal
  204.     item " &Flus&h Right..        <alt f6>"   flushr
  205.     item " Ascii C&hart.."                    asciilist
  206.     item " Date/&Time Stamp     <shift f5>"   timestamp
  207.     item " E&xpand Tabs        <ctrl k><x>"   tabfile
  208.     item " Hi&ghlight Word        <ctrl \\>"  hiliteword
  209.   end
  210.  
  211.   menu  "editClip"
  212.     item " Cu&t"                              cut
  213.     item " Cut &Append         <ctrl grey->"  cut 'a'
  214.     item " &Copy"                             copy
  215.     item " Cop&y Append        <ctrl grey+>"  copy 'a'
  216.     item "─"
  217.     item " &Paste                   <grey*>"  paste
  218.     item " Paste &Over         <ctrl grey*>"  paste 'o'
  219.     item "─"
  220.     item " C&lear              <ctrl grey/>"  clear
  221.     item " Current Clip&board..|*"            askclip
  222.   end
  223.  
  224.   menu  "editPrint"
  225.     item " &Print             <ctrl p>"       print
  226.     item " Print &Block        <alt p>"       print 'b'
  227.     item " Print &Formfeed"                   printstr (char 12)
  228.     item "-"
  229.     item " &Header/Footer..|*"                askprthdr
  230.     item " Printer &Settings..|*"             askprint
  231.   end
  232.  
  233.   menu  "Fonts"
  234.     item " 80 cols x 1&4 rows|*"           videomode 80 14
  235.     item " 80 cols x 2&1 rows|*"           videomode 80 21
  236.     item " 80 cols x 2&5 rows|*"           videomode 80 25
  237.     item " 80 cols x 2&8 rows|*"           videomode 80 28
  238.     item " 80 cols x 4&3 rows|*"           videomode 80 43
  239.     item " 80 cols x 5&0 rows|*"           videomode 80 50
  240.     item "─"
  241.     item " 40 cols x &25 rows|*"           videomode 40 25
  242.   end
  243.  
  244.   // Note: do not change the first 12 lines of this menu
  245.   // (except for key definitions)
  246.   menu  "editSet"
  247.     item " &AutoIndent"                        setting 'A' TOGGLE
  248.     item " &Backup"                            setting 'B' TOGGLE
  249.     item " Line &Draw              <ctrl d>"   setting 'D' TOGGLE
  250.     item " Line St&yle..                  "   submenu "LineStyle"
  251.     item " &Match Character"                   setting 'M' TOGGLE
  252.     item " &Smart Tabs"                        setting 'S' TOGGLE
  253.     item " Synta&x Highlighting"               setting 'X' TOGGLE
  254.     item " &Translate"                         setting 'T' TOGGLE
  255.     item " &Undo"                              setting 'U' TOGGLE
  256.     item " &Variable Tabs"                     setting 'V' TOGGLE
  257.     item " &Word Wrap"                         setting 'W' TOGGLE
  258.     item " &Live Word Wrap         <ctrl w>"   setting 'L' TOGGLE
  259.     item "─"
  260.     item " Word &Processing..             "   submenu "WordP"
  261.     item " Bi&nary Line Length..|*"            askbinary
  262.     item " Line D&elimiter..|*"                askdelim
  263.     item "─"
  264.     item " V&ideo Mode..                  "   submenu "Fonts"
  265.     item " Save &Current Settings"             saveconfig
  266.     item " &Recompile the Editor"              recompile
  267.   end
  268.  
  269.   menu  "WordP"
  270.     item " &Tab Width..|*"            asktabw
  271.     item " &Variable Tab Stops..|*"   asktabv
  272.     item "─"
  273.     item " &Left Margin..|*"          asklmarg
  274.     item " &Right Margin..|*"         askrmarg
  275.   end
  276.  
  277.   // Note: do not change this menu (except for key definitions)
  278.   menu  "LineStyle"
  279.     item " &Single"               setdraw 0
  280.     item " Double &Horizontal"    setdraw 1
  281.     item " Double &Vertical"      setdraw 2
  282.     item " &Double"               setdraw 3
  283.     item " &Eraser"               setdraw 4
  284.   end
  285.  
  286.   menu  "editMacro"
  287.     item " &Record Toggle      <ctrl f10>"    record
  288.     item " &Play                <alt f10>"    play
  289.     item " &Erase"                            erasekey
  290.     item " Era&se All"                        erasekey 'a'
  291.     item " Ope&n.."                           askopenkey
  292.     item " Sa&ve.."                           asksavekey
  293.     item " &Assign to Key.."                  assignkey
  294.     item "─"
  295.     item " &Configuration..    <shift f1>"    opencfg "config"
  296.     item " &Keys.."                           opencfg "kbd"
  297.     item " Sample Utility &Macros.."
  298.       runmacro (getbootpath + "MACRO\\" + "utility.x")
  299.     item "─"
  300.     item " Macro E&xpression..   <ctrl v>"    askeval
  301.     item " R&un Macro.."                      askrmacro
  302.     item " &Include Macro.."                  askimacro
  303.     item " Compi&le Macro.."                  askcmacro
  304.     item "─"
  305.     item " &OS Command..|*"                   askrun
  306.     item " OS Cap&ture.."                     askruncap
  307.     item " OS S&hell            <ctrl f1>|*"  shell
  308.   end
  309.  
  310.   menu  "editHelp"
  311.     item " &User's Guide Topics"
  312.       runmacro (getbootpath + "MACRO\\" + "helpuser.x")
  313.     item " User's &Guide"                            quickref 'u'
  314.     item " User &Tips"                               quickref 't'
  315.     item "-"
  316.     item " &Language Reference Topics"
  317.       runmacro (getbootpath + "MACRO\\" + "helplang.x")
  318.     item " Language &Reference"                      quickref 'l'
  319.     item "-"
  320.     item " &Function Reference"                      quickref 'f'
  321.     item " Function &Quick Reference"                quickref 'q'
  322.     item "-"
  323.     item " &Ordering Information"                    quickref 'o'
  324.   end
  325.  
  326.  
  327. // ───────────────────────────────────────────────────────────────────
  328. //  File Manager window menu bar
  329. // ───────────────────────────────────────────────────────────────────
  330.  
  331.   function  FmgrMen
  332.     menubar "" 1
  333.       item "&File"    "fmgrFile"
  334.       item "&Window"  "fmgrWindow"
  335.       item "&Mark"    "fmgrMark"
  336.       item "&Command" "fmgrCommand"
  337.       item "&Sort"    "fmgrSort"
  338.       item "&Print"   "fmgrPrint"
  339.       item "Se&t"     "fmgrSet"
  340.       item "M&acro"   "editMacro"
  341.       item "&Help"    "editHelp"
  342.     end
  343.   end
  344.  
  345.  
  346. // ───────────────────────────────────────────────────────────────────
  347. //  File Manager window pulldown menus
  348. // ───────────────────────────────────────────────────────────────────
  349.  
  350.   menu  "fmgrFile"
  351.     item " &New                 <ctrl n>"  opennew
  352.     item " &Open..           <shift f10>"  askopen
  353.     item " Open &Binary.."                 askopenb
  354.     item " Open Las&t            <alt z>"  openlast
  355.     item " &Parent          <ctrl baksp>"  fup
  356.     item " R&efresh"                       reopen
  357.     item "─"
  358.     item " &Close                <alt q>"  close
  359.     item " Close &All               <f7>"  closeall
  360.     item "─"
  361.     item " Abo&ut.."                       about
  362.   end
  363.  
  364.   menu  "fmgrWindow"
  365.     item " &Restore"                      restore
  366.     item " &Move/Size"                    sizekey
  367.     item " P&an"                          pankey
  368.     item " M&inimize"                     minimize
  369.     item " Ma&ximize          <ctrl z>"   maximize
  370.     item " &Next            <shift f3>"   nextwindow
  371.     item " &Prev"                         prevwindow
  372.     item " &List..                <f5>"   winlist
  373.     item "─"
  374.     item " Ca&scade"                      cascade
  375.     item " Tile &Horz"                    tile 'h'
  376.     item " Tile &Vert"                    tile 'v'
  377.     item "─"
  378.     item " Pr&ompt Style.."               askprompt
  379.   end
  380.  
  381.   menu  "fmgrMark"
  382.     item " Mark &Toggle     <space>"     fmark
  383.     item "─"
  384.     item " &Mark All        <alt m>"     fmark "ma"
  385.     item " &Unmark All      <alt u>"     fmark "ua"
  386.   end
  387.  
  388.   menu  "fmgrCommand"
  389.     item " &Open                  <enter>"    fopen
  390.     item " Open &Binary         <shift b>"    fopen 'b'
  391.     item " Open &Key Macro      <shift k>"    openkey2 (getffile)
  392.     item "─"
  393.     item " &Move..              <shift m>"    fmove
  394.     item " &Copy..              <shift c>"    fcopy
  395.     item " &Delete     <del> or <shift d>"    fdelete
  396.     item " Re&name..            <shift n>"    frename
  397.     item "─"
  398.     item " &Run                 <shift r>"    frun 'c'
  399.     item " &Print               <shift p>"    fprint
  400.     item "─"
  401.     item " &Attributes..        <shift a>"    fattr
  402.     item " &Touch               <shift t>"    ftouch
  403.     item "─"
  404.     item " Cr&eate Directory.."               fmkdir
  405.     item " &Scan Files..         <ctrl s>"    askscan
  406.   end
  407.  
  408.   menu  "fmgrSort"
  409.     item " &Name           <alt n>"    fsort 'n'
  410.     item " &Extension"                 fsort 'e'
  411.     item " &Size           <alt s>"    fsort 's'
  412.     item " &Date-Time      <alt d>"    fsort 'd'
  413.     item " &OS Default     <alt o>"    fsort 'o'
  414.   end
  415.  
  416.   menu  "fmgrSet"
  417.     item " Bi&nary Line Length..|*"                askbinary
  418.     item " L&ine Delimiter..|*"                    askdelim
  419.     item "─"
  420.     item " &Video Mode..                   "      submenu "Fonts"
  421.     item " Video To&ggle|*"                        togglemode
  422.     item "-"
  423.     item " Save &Current Settings"                 saveconfig
  424.     item " &Recompile the Editor"                  recompile
  425.   end
  426.  
  427.   menu  "fmgrPrint"
  428.     item " &Print             <ctrl p>"   print
  429.     item " Print &Formfeed"               printstr (char 12)
  430.     item " Print &Settings..|*"           askprint
  431.   end
  432.  
  433.  
  434. // ───────────────────────────────────────────────────────────────────
  435. //  Miscellaneous menus
  436. // ───────────────────────────────────────────────────────────────────
  437.  
  438.   // yes/no/cancel popup menu
  439.   menu  "ync"
  440.     item " &Yes"
  441.     item " &No"
  442.     item " &Cancel"
  443.   end
  444.  
  445.   // ok/cancel popup menu
  446.   menu  "ok"
  447.     item " O&k"
  448.     item " &Cancel"
  449.   end
  450.  
  451.   // replace/append/cancel popup menu
  452.   menu  "rac"
  453.     item " &Replace"
  454.     item " &Append"
  455.     item " &Cancel"
  456.   end
  457.  
  458.